home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 122 / 122side4.d64 / hello connect (.txt) < prev    next >
Commodore BASIC  |  2022-08-29  |  949b  |  24 lines
  1. 3 poke53281,0:poke53280,0:poke32767,13
  2. 5 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or3
  3. 10 poke53272,21:poke648,4:poke55,0:poke56,160:poke51,0:poke52,160:gosub500
  4. 20 gosub40000
  5. 500 dv=peek(186):ifdv<8thendv=8
  6. 505 print"[147]":a$="                                     "
  7. 510 b$="[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
  8. 520 poke214,9:print:poke646,15:fori=1to10:print""b$:next
  9. 530 poke214,11:print:poke646,11:fori=1to7:printtab(2)left$(b$,34):next
  10. 540 poke214,10:print:poke646,3:fori=1to7:printtab(3)""left$(b$,34):next
  11. 550 poke214,12:print:poke646,7:fori=1to4:printtab(5)""left$(a$,30):next
  12. 555 poke214,11:print:printtab(5)"[158]                              "
  13. 560 printtab(7)"[212]here is no [204][207][193][196][211][212][193][210] menu"
  14. 562 printtab(7)"on this side.  [212]ry another"
  15. 565 printtab(7)"side and press a key.   "
  16. 570 geta$:ifa$=""then570
  17. 580 return
  18. 10000 open15,8,15,"s0:hello connect":close15:save"hello connect",8:end
  19. 40000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen40020
  20. 40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
  21. 40020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:poke186,8:end
  22. 40030 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
  23. 40040 print"run":poke44,8:poke2048,0:poke631,13:poke632,13:poke198,2:end
  24.